r = 4 (slider from 1 to 15, step 1)
L = Sequence(Sequence[Sequence[Cube[(k, l, n), (k + 1, l, n), (k + 1, 1 + l, n)], k, 0, r - 1], l, 0, r - 1], n, 0, r - 1)
L2 = Sequence(Sequence[Sequence[(k + 0.5, l + 0.5, n + 0.5), k, 0, r - 1], l, 0, r - 1], n, 0, r - 1)
K = Sequence(Sequence[Sequence[Sphere[(k + 0.5, l + 0.5, n + 0.5), 0.5], k, 0, r - 1], l, 0, r - 1], n, 0, r - 1)